﻿Imports EntitiesLayer

'---------------------------------------> Clase creada por Diego Barillas <----------------------------------------

Public Class frmRegistrarEjercicio

    Private Sub frmRegistrarEjercicio_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'llama al metodo listaMusculos y recorre cada musculo de la lista
        For Each musculo As Musculo In objGestor.listaMusculos
            cmbMusculos.Items.Add(musculo.Nombre) 'agregar el nombre de cada musculo al combobox
         
        Next
    End Sub

    Private Sub txtCodigo_TextChanged(sender As Object, e As EventArgs) Handles txtCodigo.TextChanged
        lblCodigo.Visible = False 'si el texto es cambiado quita el label de validacion
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Me.Hide()
        frmTransparente.Close()
        frmSecundario.Close()
    End Sub

    Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Me.Hide()
        frmTransparente.Close()
        frmSecundario.Close()
    End Sub

    Private Sub btnSiguiente_Click(sender As Object, e As EventArgs) Handles btnSiguiente.Click

        'Aca valida cada textBox del form y si hay un textBox vacio muestra un mensaje de error
        If txtCodigo.Text = "" Then
            lblCodigo.Visible = True
        End If
        If txtNombreComun.Text = "" Then
            lblNombreComun.Visible = True
        End If
        If txtErrores.Text = "" Then
            lblErrores.Visible = True
        End If
        If txtIndicaciones.Text = "" Then
            lblIndicaciones.Visible = True
        End If
        If cmbMusculos.Text = "" Then
            lblMusculo.Visible = True
        End If
        '----------------------------------------------------------------------------------------

        'Si ningun campo es vacio entra al if y deja al usuario continuar al siguiente form
        If txtCodigo.Text <> "" And txtNombreComun.Text <> "" And txtErrores.Text <> "" And txtIndicaciones.Text <> "" And cmbMusculos.Text <> "" Then

            Dim entro As Boolean = False
            For Each x As Control In Me.Parent.Controls.OfType(Of frmRegistrarImagenesEjercicio)()

                x.Visible = True
                entro = True
            Next
            If Not entro Then
                Dim frm As New frmRegistrarImagenesEjercicio
                frm.Dock = DockStyle.Fill
                frmTransparente.AgregarContenido(frm)
                frmTransparente.Show()
            End If
            Me.Visible = False
        End If
    End Sub

    Private Sub txtNombreComun_TextChanged(sender As Object, e As EventArgs) Handles txtNombreComun.TextChanged
        lblNombreComun.Visible = False 'si el texto es cambiado quita el label de validacion
    End Sub

    Private Sub cmbMusculos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbMusculos.SelectedIndexChanged
        lblMusculo.Visible = False 'si el texto es cambiado quita el label de validacion
    End Sub


    Private Sub txtErrores_TextChanged(sender As Object, e As EventArgs) Handles txtErrores.TextChanged
        lblErrores.Visible = False 'si el texto es cambiado quita el label de validacion
    End Sub

    Private Sub txtIndicaciones_TextChanged(sender As Object, e As EventArgs) Handles txtIndicaciones.TextChanged
        lblIndicaciones.Visible = False 'si el texto es cambiado quita el label de validacion
    End Sub
End Class
